home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 2 / Gold Medal Software Volume 2 (Gold Medal) (1994).iso / windows / utils / wb_40g.arj / PLAY_CD.WB_ < prev    next >
Text File  |  1992-02-26  |  471b  |  21 lines
  1. ;This WBT file plays a music CD on a CDAudio player.  
  2. ;It plays whatever in in the drive, from start to finish.
  3.  
  4.  
  5. stat=PlayMedia("status cdaudio mode")
  6. a=1
  7. if stat=="playing" then a=AskYesNo("CD Audio","CD is Playing.  Stop?")
  8. if a==0 then exit 
  9.  
  10.  
  11. PlayMedia("open cdaudio shareable alias donna notify")
  12. PlayMedia("set donna time format tmsf")
  13. PlayMedia("play donna from 1")
  14. PlayMedia("close donna")
  15. exit
  16.  
  17. :CANCEL
  18.  
  19. PlayMedia("set cdaudio door open")
  20.  
  21.